home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Mega_magazine_1_19xx_Venturi.d64 / samouk ang-pol (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  164 lines
  1. 10 if f=0 then f=1:load"fonters",8,1
  2. 20 poke 56334,0:poke 1,51
  3. 30 poke 1,55:poke 56334,1
  4. 40 poke 648,204:poke 53272,58
  5. 50 poke 56576,peek(56576)and252
  6. 60 poke 53280,15:poke 53281,15
  7. 70 poke 646,0:clr
  8. 80 print chr$(142)
  9. 90 print chr$(8)
  10. 100 dim a$(5000),b$(5000):a=0:b=0:n$="file"
  11. 110 printchr$(147)
  12. 120 print"     [215]ukasz kalinowski przedstawia "
  13. 130 print
  14. 140 print"        samouk [151]angielsko-polski[144]"
  15. 150 print
  16. 160 print"       1.wpisanie s[215][218]wek do s[215]ownika"
  17. 170 print"       2.wyszukiwanie s[215][218]wek
  18. 180 [153]"       3.opcje dyskietki
  19. 190 print"       4.nazwa zbioru
  20. 200 [153]"       5.skasowanie danych
  21. 210 print"       6.wyj[216]cie z programu
  22. 220 [153]"       7.help - polskie znaki
  23. 230 print"
  24. 240 [153]"wolna pamipeek(NULL) :";5000[171]a
  25. 250 [153]"nazwa zbioru : ";n$
  26. 251 [153]"copyright by (NULL)ukasz kalinowski"
  27. 260 [161] c$
  28. 270 [139] c$[178]"1" [167] 350
  29. 280 [139] c$[178]"2" [167] 540
  30. 290 [139] c$[178]"3" [167] 800
  31. 300 [139] c$[178]"4" [167] 1170
  32. 310 [139] c$[178]"5" [167] 1230
  33. 320 [139] c$[178]"6" [167] 1330
  34. 330 [139] c$[178]"7" [167] 1420
  35. 340 [137] 260
  36. 350 [143] * opcja 1 *
  37. 360 a[178]a[170]1:[139] a[177]5000 [167] 110
  38. 370 [153] [199](147)
  39. 380 [153]"wpisywanie s(NULL)(NULL)wek do s(NULL)ownika."
  40. 390 [153]
  41. 400 [153]"s(NULL)owo numer :";a
  42. 410 [153]
  43. 420 [153]"pokeznaczenie angielskie :stop"
  44. 430 [159] 1,0:[132]1,a$(a):[160] 1
  45. 440 [139] [195](a$(a))[177]25 [167] 420
  46. 450 [153]"pokeznaczenie polskie :stop"
  47. 460 [159] 1,0:[132]1,b$(a):[160] 1
  48. 470 [139] [195](b$(a))[177]25 [167] 460
  49. 480 [153]:[153]
  50. 490 [153]"          czy wszystko (poketstop/pokenstop)
  51. 500 get c$
  52. 510 if c$="t" then 110
  53. 520 if c$="n" then 360
  54. 530 goto 500
  55. 540 rem * opcja 2 *
  56. 550 if a=0 then 110
  57. 560 print chr$(147)
  58. 570 print"wyszukiwanie s[215][218]wek."
  59. 580 print
  60. 590 print"wpisz s[215][218]wko :"
  61. 600 open 1,0:input#1,d$:close 1
  62. 610 if len(d$)>25 then 590
  63. 620 for d=1 to a:if a$(d)=d$ then 740
  64. 630 next d
  65. 640 for d=1 to a:if b$(d)=d$ then 740
  66. 650 next d
  67. 660 print:print
  68. 670 print"[151]s[215][218]wko nieznalezione.[144]"
  69. 680 print
  70. 690 print"          czy wszystko ([151]t[144]/[151]n[144])
  71. 700 [161] c$
  72. 710 [139] c$[178]"t" [167] 110
  73. 720 [139] c$[178]"n" [167] 540
  74. 730 [137] 700
  75. 740 [153]:[153]
  76. 750 [153]"pokeznaczenie polskie :stop"
  77. 760 [153] a$(d)
  78. 770 [153]"pokeznaczenie angielskie :stop"
  79. 780 [153] b$(d)
  80. 790 [137] 680
  81. 800 [143] * opcja 3 *
  82. 810 [153] [199](147):r$[178][199](13)
  83. 820 [153]"opcje dyskietki."
  84. 830 [153]
  85. 840 [153]"1.zapis s(NULL)ownika na dysk "
  86. 850 [153]"2.odczyt s(NULL)ownika z dysku"
  87. 860 [153]"3.powr(NULL)t do menu   "
  88. 870 [161] c$
  89. 880 [139] c$[178]"1" [167] 920
  90. 890 [139] c$[178]"2" [167] 1060
  91. 900 [139] c$[178]"3" [167] 110
  92. 910 [137] 870
  93. 920 [153] [199](147)
  94. 930 [153]"nazwa zbioru : ";n$
  95. 940 [159] 15,8,15,"i0:":[160] 15
  96. 950 [159] 1,8,1,"file."[170]n$[170]",s":[152]1,a
  97. 960 [129] d[178]1 [164] a
  98. 970 [152]1,a$(d);r$;b$(d);r$;
  99. 980 [130] d:[160] 1
  100. 990 [153]
  101. 1000 [159] 15,8,15:[132]15,a$,b$,c$,d$:[160] 15
  102. 1010 [153]"pokestatus :stop ";a$[170]" "[170]b$[170]" "[170]c$[170]","[170]d$
  103. 1020 [153]
  104. 1030 [153]"wci(NULL)nij pokereturnstopwait":[153]
  105. 1040 [161] q$:[139] q$[179][177][199](13) [167] 1040
  106. 1050 [137] 800
  107. 1060 [153] [199](147)
  108. 1070 [153]"nazwa zbioru : ";n$:[153]
  109. 1080 [159] 15,8,15,"i0:":[160] 15
  110. 1090 [159] 1,8,0,"file."[170]n$[170]",s":[132]1,a
  111. 1100 [129] d[178]1 [164] a:[132]1,a$(d):[132]1,b$(d):[130] d:[160] 1
  112. 1110 [159] 15,8,15:[132]15,a$,b$,c$,d$:[160] 15
  113. 1120 [153]"pokestatus :stop ";a$[170]" "[170]b$[170]" "[170]c$[170]","[170]d$
  114. 1130 [153]
  115. 1140 [153]"wci(NULL)nij pokereturnstopwait"
  116. 1150 [161] q$:[139] q$[179][177][199](13) [167] 1150
  117. 1160 [137] 800
  118. 1170 [143] * opcja 4 *
  119. 1180 [153] [199](147)
  120. 1190 [153]"nazwa zibioru :":[153]
  121. 1200 [159] 1,0:[132]1,n$:[160] 1
  122. 1210 [139] [195](n$)[177]11 [167] 1190
  123. 1220 [137] 110
  124. 1230 [143] * opcja 5 *
  125. 1240 [153] [199](147)
  126. 1250 [153]"kasowanie danych."
  127. 1260 [153]
  128. 1270 [153]"czy skasowa(NULL) (poketstop/pokenstop)"
  129. 1280 [161] q$
  130. 1290 [139] q$[178]"t" [167] 1320
  131. 1300 [139] q$[178]"n" [167] 110
  132. 1310 [137] 1280
  133. 1320 [156]:[137] 100
  134. 1330 [143] * opcja 6
  135. 1340 [153] [199](147)
  136. 1350 [153]"wyj(NULL)cie z programu."
  137. 1360 [153]
  138. 1370 [153]"czy wyj(NULL)(NULL) (poketstop/pokenstop)
  139. 1380 get q$
  140. 1390 if q$="t" then print"[147]":new
  141. 1400 if q$="n" then 110
  142. 1410 goto 1380
  143. 1420 rem * opcja 7 *
  144. 1430 print chr$(147)
  145. 1440 print"polskie znaki :"
  146. 1450 print
  147. 1460 print"shift + a = [193]
  148. 1470 [153]"shift + s = (NULL)
  149. 1480 print"shift + b = [194]
  150. 1490 [153]"shift + w = (NULL)
  151. 1500 print"shift + q = [209]
  152. 1510 [153]"shift + z = (NULL)
  153. 1520 print"shift + x = [216]
  154. 1530 [153]"shift + ^ = (NULL)
  155. 1540 print"c=    + * = [223]
  156. 1550 [153]"
  157. 1560 print"[215]ukasz kalinowski
  158. 1570 [153]"ul.trybunalska 21/3
  159. 1580 print"58-100 [216]widnica
  160. 1590 [153]
  161. 1600 [153]"         wci(NULL)nij dowolny klawisz."
  162. 1610 [161] q$:[139] q$[178]"" [167] 1610
  163. 1620 [137] 110
  164.